home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 1 #7 / utv1n7s2.d64 / credit card mgr. (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  11KB  |  336 lines
  1. 10 rem    credit card filer
  2. 25 rem    by mike cooke
  3. 40 rem    (c) 1987
  4. 55 rem    published by:
  5. 70 rem    softdisk publishing, inc.
  6. 85 rem
  7. 100 ifl=0thenl=1:open15,8,15,"i0":close15:load"0:lptr rtn",8,1
  8. 110 sys 65418:poke 808,234
  9. 115 clr:printchr$(8);chr$(14):up$=chr$(17)
  10. 120 poke 53269,0
  11. 130 nc=0:dimc$(26,4)
  12. 145 poke53280,0:poke53281,0
  13. 150 print"[147]"
  14. 260 v=53248:gt=14335
  15. 265 fort=1to256:reada:pokegt+t,a:nextt:poke2040,224:poke2041,225
  16. 280 poke2042,226:poke2043,227:pokev+41,6:pokev+42,6:pokev+39,8:pokev+40,8
  17. 295 pokev+28,15:pokev+37,1:pokev+38,7:pokev+16,12
  18. 310 pokev,47:pokev+2,71:pokev+4,9:pokev+6,33:pokev+1,68:pokev+3,68:pokev+5,68
  19. 325 pokev+7,68:pokev+21,15
  20. 326 print"[147][155]                                       "
  21. 327 print" [146]                                      [146]"
  22. 328 print" [146]                                      [146]"
  23. 329 print" [146]          [154][195]redit [195]ard [198]iler[155]           [146]"
  24. 330 print" [146]                                      [146]"
  25. 331 print" [146][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] [146]"
  26. 332 print"      [208]ress [198]8 to [210]eturn to [213]p[212]ime     ":print
  27. 340 print"[159]         [215]ritten by [205]ike [195]ooke"
  28. 355 print"          (c) [195]opyright 1987"
  29. 370 print" [208]ublished by [211]oftdisk [208]ublishing, [201]nc."
  30. 385 print"[152]     [196]o you want instructions? ";
  31. 390 poke 198,0
  32. 400 geta$:ifa$="[140]"then4360
  33. 415 ifa$="y"thenprint"[155][217]es":goto610
  34. 430 ifa$="n"thenprint"[155][206]o":goto1090
  35. 445 goto400
  36. 460 rem   *** clear space ***
  37. 475 print""
  38. 490 z=0:forz=1to16:print"                                       ":nextz
  39. 505 print""
  40. 520 return
  41. 535 rem   *** press spacebar ***
  42. 550 print"       [208]ress [150]<[211][208][193][195][197]> to [195]ontinue"
  43. 565 geta$:ifa$="[140]"then4360
  44. 580 ifa$<>chr$(32)then565
  45. 595 return
  46. 610 rem   *** instructions ***
  47. 625 gosub460:print"[152]    [212]his program's purpose is to store"
  48. 640 print"up to 25 different sets of credit card"
  49. 655 print"information. [198]or each card, the program"
  50. 670 print"will store its name, number, exp date,"
  51. 685 print"and a phone number to call if you were"
  52. 700 print"to lose the card.  [201]f you were to lose"
  53. 715 print"your cards, you would have easy access"
  54. 730 print"to the information you would need to"
  55. 745 print"tell the credit card company."
  56. 760 print:gosub535:gosub460
  57. 775 print"[152]     [212]o put a card into the file, you"
  58. 790 print"would pick the first menu choose-add a"
  59. 805 print"card.  [201]f you ever want to erase"
  60. 820 print"the information on a card, you would"
  61. 835 print"choose the the appropriate menu choice."
  62. 850 print"[155][193]lways 'save' the file before"
  63. 865 print"exiting if you have made changes in"
  64. 880 print"the file.  [152][201]f you don't, the changes"
  65. 895 print"will not be recorded."
  66. 910 print:gosub535:gosub460
  67. 925 print"[152]     [201]n the first part of the program"
  68. 940 print"you will be asked if this a new or an"
  69. 955 print"old file.  [206]ew files are ones that have"
  70. 970 print"no data.  [217]ou would choose this the"
  71. 985 print"first time you run the program.  [207]ld"
  72. 1000 print"files are those with data in them you"
  73. 1015 print"want to change or add to.  [201]f you say"
  74. 1030 print"that you want a new file after you have"
  75. 1045 print"already made a file, the first one will"
  76. 1060 print"be erased and a new one set up.":print:gosub535:gosub460
  77. 1061 print"[152]    [212]he final menu choice, [208]rint [204]etter"
  78. 1062 print"is used when you lose a credit card and"
  79. 1063 print"you need to send a written request for"
  80. 1064 print"new credits cards.  [217]ou are ask for"
  81. 1065 print"additional information to put in the"
  82. 1066 print"letter and you should reply in the"
  83. 1067 print"following format.":gosub535:gosub460
  84. 1068 print"[152]  [206][193][205][197]:     [155][205]ichael [211]. [195]ooke"
  85. 1069 print" [152] [193][204][212] [206][193][205][197]: [155][211]ondra [204]. [195]ooke"
  86. 1070 print"  ([213]sed with more than one card holder)"
  87. 1071 print"  [152][193][196][196][210][197][211][211]:[155]  [208][207] [194]ox 100"
  88. 1072 print"                   or"
  89. 1073 print"            801 [204]akeshore [196]r."
  90. 1074 print"  [152][195][201][212][217]: [155][211]elma  [152][211][212][193][212][197]: [155][207][210]  [152][218][201][208]: [155]97538"
  91. 1075 print"  [152][196][193][212][197]:     [155][193]ugust 13, 1987"
  92. 1076 print"  [152][208][200][207][206][197] #:  [155](503) 597-1212"
  93. 1089 gosub535:gosub460:goto340
  94. 1090 rem   *** old/new file ***
  95. 1105 print"[152]     [201]s this a [155][206][152]ew or [155][207][152]ld file?    [157][157][157]";
  96. 1120 geta$:ifa$="[140]"then4360
  97. 1135 ifa$="n"thenprint"[155][206]ew":goto1180
  98. 1150 ifa$="o"thenprint"[155][207]ld":goto1420
  99. 1165 goto1120
  100. 1180 print"     [193]re you sure?    [157][157][157]";
  101. 1195 geta$:ifa$="[140]"then4360
  102. 1210 ifa$="y"thenprint"[217]es":goto1255
  103. 1225 ifa$="n"thenprint"[206]o[145][145][145][145]":goto1105
  104. 1240 goto1195
  105. 1255 rem   *** new file ***
  106. 1270 open15,8,15,"i0":open1,8,2,"@0:-ccm data,s,w":input#15,a:ifa<20then1360
  107. 1285 print"[145][145][152][196][201][211][203] [197][210][210][207][210]!!!  [208]lease check your drive":close1:close15
  108. 1300 print"and press space."
  109. 1315 geta$:ifa$=""then1315
  110. 1330 print"[145][145][145]":fort=1to2
  111. 1345 print"                                       ":nextt:print"[145]":goto1270
  112. 1360 print"[152]     [195]reating file..."
  113. 1375 print#1,0:close1:close15:fort=1to500:nextt
  114. 1390 goto1555
  115. 1405 rem   *** old file ***
  116. 1420 open15,8,15,"i0":open1,8,2,"0:-ccm data,s,r":input#15,a$:ifa$<"20"then1510
  117. 1435 print"[152][196][201][211][203] [197][210][210][207][210]!!!  [208]lease check your drive":close1:close15
  118. 1450 print"and press space."
  119. 1465 geta$:ifa$=""then1465
  120. 1480 print"[145][145][145]":fort=1to2
  121. 1495 print"                                       ":nextt:print"[145][145][145][145][145][145]":goto1105
  122. 1510 print"     [204]oading data...":input#1,nc$:nc=val(nc$):if nc>26 then nc=26
  123. 1525 fort=1tonc:fory=1to4:input#1,c$(t,y):nexty,t
  124. 1540 close1:close15
  125. 1555 rem *** main menu ***
  126. 1570 gosub460:print"[155]           [195]hoose by [206]umber:":print
  127. 1585 print"             [155]1)[152] [193]dd card":print
  128. 1600 print"             [155]2)[152] [197]rase card":print
  129. 1615 print"             [155]3)[152] [211]ave file":print
  130. 1630 print"             [155]4)[152] [214]iew cards":print:printtab(13)"[155]5)[152] [208]rint [204]etter"
  131. 1645 print:print"            [155][198]8)[152] [197]xit to [213]p[212]ime":print
  132. 1660 print"[155]           [195]hoice:";
  133. 1675 geta$:ifa$="[140]"then4360
  134. 1690 a=val(a$):ifa<1ora>5then1675
  135. 1705 printa;"  ([217]/[206])? ";
  136. 1720 geta$:ifa$=""then1720
  137. 1735 ifa$="y"thenprint"[217]es":goto1780
  138. 1750 ifa$<>"n"then1720
  139. 1765 print"[206]o":print"[145]                                       [145]":goto1660
  140. 1780 onagosub1810,2065,2455,2725,3475
  141. 1795 goto1555
  142. 1810 rem   *** add card ***
  143. 1825 gosub460:printtab(13)" [159][193]dd a [195]ard"
  144. 1840 ifnc=15thenprint:print"[155]      [206]o more cards may be added.":gosub535:return
  145. 1855 print:print:nc=nc+1
  146. 1870 print:print"      [152][195]ard name:[155] ";
  147. 1885 gosub3355:c$(nc,1)=a$
  148. 1887 if a$="" then c$(nc,1)="*"
  149. 1900 print:print"      [152][206]umber:[155] ";
  150. 1915 gosub3355:c$(nc,2)=a$
  151. 1920 if a$="" then c$(nc,2)="*"
  152. 1930 print:print"      [152][197]xp date: [155]";
  153. 1945 gosub3355:c$(nc,3)=a$
  154. 1950 if a$="" then c$(nc,3)="*"
  155. 1960 print:print"      [152][212]elephone #: [155]";
  156. 1975 gosub3355:c$(nc,4)=a$
  157. 1980 if a$="" then c$(nc,4)="*"
  158. 1990 print:printtab(13)" [159][193]dd another?"
  159. 2005 geta$:ifa$=""then2005
  160. 2020 ifa$="y"then1810
  161. 2035 ifa$="n"thenreturn
  162. 2050 goto2005
  163. 2065 rem   *** erase card ***
  164. 2080 gosub460:printtab(13)"[159][197]rase a [195]ard"
  165. 2095 ifnc=0thenprint:print"[152]      [212]here are no cards to erase.":gosub535:return
  166. 2110 print:print"[152][213]se the up/down cursor key to scroll"
  167. 2125 print"the cards.  [208]ress '[197]' to erase a card."
  168. 2140 print"press '[210]' to return to the menu."
  169. 2155 print:print
  170. 2170 c=1
  171. 2185 print"[155]";c$(c,1);"[152] - ";c$(c,2):print
  172. 2200 print